Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports DotNetNuke
Namespace NVPortal.Modules.NVBannerAdv

    Public MustInherit Class SpecialDefault
        Inherits Entities.Modules.PortalModuleBase

#Region "Controls"
#End Region

#Region "Event Handlers"
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                If Not IsPostBack Then
                    Dim arrNews As New ArrayList
                    Dim ctlNews As New NVBannerAdvController
                    arrNews = ctlNews.GetAllShow(Settings("PortalSetting"), IIf(Settings("NVBannerAdvVitriSetting") <> "", Settings("NVBannerAdvVitriSetting"), 0))
                        Me.drgOtherNews.DataSource = arrNews
                        Me.drgOtherNews.DataBind()

                End If
            Catch ex As Exception
                'Me.imgNews.Visible = False
                ' Exception
                ProcessModuleLoadException(Me, ex)
            End Try
        End Sub
#End Region

#Region "Optional Interfaces"

#End Region


    End Class

End Namespace
